<%

Function manager_criar_jogador(nome)

	if nome="" then

		nome = manager_emular_nome_jogador()
	
	End If

	DIM forca, idade

	forca = randomico(1,3)
	idade = randomico(17,22)

	str = "INSERT into jogadores "
	str = str & "(nome, forca, idade) "
	str = str & "VALUES ('" & nome & "', "
	str = str & "'" & forca & "', "		
	str = str & "'" & idade & "')"						
	Set rsI = conexao_manager.Execute(str)


End Function

Function manager_nome_alterar_jogador(id, nome)

	if nome<>"" then
					
		str = "UPDATE jogadores SET "
		str = str & "nome'"&nome&"' "
		str = str & " WHERE id="&id
		Set rsI = conexao_manager.Execute(str)

	End If


End Function

Function manager_forca_alterar_jogador(id, forca)

	if manager_verificar_forca_jogador(forca) then
					
		str = "UPDATE jogadores SET "
		str = str & "forca'"&forca&"' "
		str = str & " WHERE id="&id
		Set rsI = conexao_manager.Execute(str)

	End If


End Function

Function manager_forca_aumentar_jogador(id, variacao)

	str = "Select forca FROM jogadores where id="&id
   	Set rs = conexao_manager.Execute(str)

	if not rs.eof then

		DIM forca
		
		forca = rs("forca")+variacao

		manager_forca_alterar_jogador id, forca

	End If


End Function

Function manager_verificar_forca_jogador(numero)

		if IsNumero(numero) then
		
			if numero>=1 and numero<=100 then
				
				manager_verificar_forca_jogador = TRUE
			
			else
			
				manager_verificar_forca_jogador = False
				
			End If
		
		else
		
			manager_verificar_forca_jogador = False
		
		End If
		
End Function


Function manager_idade_alterar_jogador(id, idade)

	if manager_verificar_idade_jogador(idade) then
					
		str = "UPDATE jogadores SET "
		str = str & "idade'"&idade&"' "
		str = str & " WHERE id="&id
		Set rsI = conexao_manager.Execute(str)

	End If


End Function

Function manager_idade_aumentar_jogador(id, variacao)

	str = "Select idade FROM jogadores where id="&id
   	Set rs = conexao_manager.Execute(str)

	if not rs.eof then

		DIM idade
		
		idade= rs("idade")+variacao

		manager_idade_alterar_jogador id, idade

	End If


End Function

Function manager_verificar_idade_jogador(numero)

		if IsNumero(numero) then
		
			if numero>=16 and numero<=40 then
				
				manager_verificar_idade_jogador = TRUE
			
			else
			
				manager_verificar_idade_jogador = False
				
			End If
		
		else
		
			manager_verificar_idade_jogador = False
		
		End If
		
End Function

%>